home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / TEST1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-12-09  |  3.0 KB  |  95 lines
  1. 5  KEY OFF:SCREEN 0:WIDTH 80:COLOR   3,1,9
  2. 10  CLS
  3. 14  PRINT"         Welcome to S I G N  F R I E N D S by Fran O'Gorman (c)1989."
  4. 15  COLOR 12,1,9:PRINT
  5. 16           WIDTH 80:COLOR 14,1,9
  6. 17  PRINT"1.  Alphabet                 21. Important persons
  7. 18  PRINT"2.  Numbers                  22. More important persons
  8. 19  PRINT"3.  Interrogative            23. School words
  9. 20  PRINT"4.  Polite                   24. Subjects
  10. 21  PRINT"5.  Basic Survival           25. Communication
  11. 22  PRINT"6.  Colors                   26. Cognitive words
  12. 23  PRINT"7.  Days                     27. Medical words
  13. 24  PRINT"8.  Seasons                  28. First Aid
  14. 25  PRINT"9.  Holidays                 29. Fire Safety
  15. 26  PRINT"10. Distance/time            30. More Fire Safety
  16. 27  PRINT"11. Travel                   31. Negation
  17. 28  PRINT"12. Prepositions             32. Police Words
  18. 29  PRINT"13. More Prepositions        33. More Police words
  19. 30  PRINT"14. Quantities               34. Foods
  20. 31  PRINT"15. More Quantities          35. Fruits
  21. 32  PRINT"16. Bodily movement          36. Vegetables
  22. 33  PRINT"17. Adverbs                  37. Sweets/desserts
  23. 34  PRINT"18. Transitive Verbs         38. Beverages
  24. 35  PRINT"19. Weather                  39. ";:COLOR 15,1,9:PRINT"FOR MORE LESSONS":COLOR 14,1,9
  25. 36  PRINT"20. Clothes                  40. ";:COLOR 15,1,9:PRINT"TO QUIT":COLOR 11,1,9
  26. 40  LOCATE 25,1:INPUT "Press number for choice";Q$
  27. 50  Q=VAL(Q$)
  28. 60  IF Q>40 OR Q<1 THEN 40
  29. 62  IF Q>38 THEN 90
  30. 64  CLS:INPUT "PRACTICE OR TEST (P/T)";R$
  31. 66  IF R$="" THEN 64
  32. 68  IF ASC(R$)>90 THEN PRINT"Be sure CAPS LOCK is on.":FOR DL=0 TO 3000+ZZ:NEXT:GOTO 64
  33. 70  IF R$ = "P" THEN 80
  34. 72  IF R$ <> "T" THEN 64
  35. 74  INPUT"SOUND (Y/N)";XX$
  36. 75  IF XX$<>"Y" AND XX$<>"N" THEN 74
  37. 76  IF XX$="Y" THEN XX=1:GOTO 90
  38. 77  XX=2:GOTO 90
  39. 80  XX=3:IF Q > 2 THEN 90
  40. 82  IF Q = 1 THEN CHAIN "ALPHA",,ALL
  41. 84  IF Q = 2 THEN CHAIN "NUM",,ALL
  42. 90  ON Q GOTO 101,102,103,104,105,106,107,108,109,110,111,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400
  43. 101  CHAIN "TEST",,ALL
  44. 102  CHAIN "NUMTEST",,ALL
  45. 103  CHAIN "TINTER",,ALL
  46. 104  CHAIN "TPOLITE",,ALL
  47. 105  CHAIN "TSURV",,ALL
  48. 106  CHAIN "TCOLORS",,ALL
  49. 107  CHAIN "TDAY",,ALL
  50. 108  CHAIN "TSEASON",,ALL
  51. 109  CHAIN "THOL",,ALL
  52. 110  CHAIN "TRELDT",,ALL
  53. 111  CHAIN "TTRAV",,ALL
  54. 120  CHAIN "TPREP",,ALL
  55. 130  CHAIN "TMPREP",,ALL
  56. 140  CHAIN "TQUANT",,ALL
  57. 150  CHAIN "TMQUANT",,ALL
  58. 160  CHAIN "TBODY",,ALL
  59. 170  CHAIN "TADVERB",,ALL
  60. 180  CHAIN "TTVERB",,ALL
  61. 190  CHAIN "TWEATHER",,ALL
  62. 200  CHAIN "TCLOTHES",,ALL
  63. 210  CHAIN "TPERSONS",,ALL
  64. 220  CHAIN "TMPERSONS",,ALL
  65. 230  CHAIN "TSCHOOL",,ALL
  66. 240  CHAIN "TSUBJECT",,ALL
  67. 250  CHAIN "TCOMM",,ALL
  68. 260  CHAIN "TCOG",,ALL
  69. 270  CHAIN "TMED",,ALL
  70. 280  CHAIN "TSAFE",,ALL
  71. 290  CHAIN "TFIRE1",,ALL
  72. 300  CHAIN "TFIRE2",,ALL
  73. 310  CHAIN "TNEG",,ALL
  74. 320  CHAIN "TPOLICE1",,ALL
  75. 330  CHAIN "TPOLICE2",,ALL
  76. 340  CHAIN "TFOOD",,ALL
  77. 350  CHAIN "TFRUIT",,ALL
  78. 360  CHAIN "TVEG",,ALL
  79. 370  CHAIN "TSWEET",,ALL
  80. 380  CHAIN "TBEV",,ALL
  81. 390  ON ERROR GOTO 1000
  82. 395   CHAIN "TEST2",,ALL
  83. 396  ON ERROR GOTO 0
  84. 400  SYSTEM :END
  85. 415   CHAIN "CHAP1",,ALL
  86. 420  ON ERROR GOTO 0
  87. 1000  CLS:PRINT"IF USING FLOPPIES, REMOVE THIS DISK AND INSERT SECOND DISK."
  88. 1010  PRINT"                     - PRESS KEY TO CONTINUE -"
  89. 1030  K1$=INKEY$:IF K1$=""THEN 1030
  90. 1050  CHAIN "TEST2",,ALL
  91. 2000  CLS:PRINT"IF USING FLOPPIES, REMOVE THIS DISK AND INSERT DISK WITH SFDEMO-1."
  92. 2010  PRINT"                     - PRESS KEY TO CONTINUE -"
  93. 2030  K1$=INKEY$:IF K1$=""THEN 2030
  94. 2050  CHAIN "CHAP1",,ALL
  95.